home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.02 Feb 88 / Rotate Source Code / rot2Edit ƒ / rot2Edit.r < prev    next >
Encoding:
Text File  |  1987-12-17  |  1.8 KB  |  94 lines  |  [TEXT/MPS ]

  1. #include "Types.r"
  2.  
  3. type 'XRT2' as 'STR ';
  4.  
  5. resource 'XRT2' (0) {
  6.     "Sample Rotation Application - Version 1.0 by John D. Olsen,RPS of Double Centre Surveying"
  7. };
  8.  
  9.  
  10. resource 'DITL' (32723) {
  11.     {    /* array DITLarray: 3 elements */
  12.         /* [1] */
  13.         {215, 169, 235, 257},
  14.         Button {
  15.             enabled,
  16.             "Bye now !"
  17.         },
  18.         /* [2] */
  19.         {13, 13, 205, 205},
  20.         EditText {
  21.             enabled,
  22.             "What do think about this ? It lets you read "
  23.             "your monitor while lying on your side… its "
  24.             "the latest for couch potatoes !"
  25.         },
  26.         /* [3] */
  27.         {13, 221, 205, 413},
  28.         EditText {
  29.             enabled,
  30.             ""
  31.         }
  32.     }
  33. };
  34.  
  35.  
  36. resource 'DLOG' (1000, "Rotated Text Dialog") {
  37.     {41, 16, 285, 442},
  38.     documentProc,
  39.     visible,
  40.     noGoAway,
  41.     0x0,
  42.     32723,
  43.     "Rotaters do it sideways !"
  44. };
  45.  
  46. resource 'BNDL' (128) {
  47.     'XRT2',
  48.     0,
  49.     {    /* array TypeArray: 2 elements */
  50.         /* [1] */
  51.         'FREF',
  52.         {    /* array IDArray: 1 elements */
  53.             /* [1] */
  54.             0, 128
  55.         },
  56.         /* [2] */
  57.         'ICN#',
  58.         {    /* array IDArray: 1 elements */
  59.             /* [1] */
  60.             0, 128
  61.         }
  62.     }
  63. };
  64.  
  65. resource 'FREF' (128) {
  66.     'APPL',
  67.     0,
  68.     ""
  69. };
  70.  
  71. resource 'ICN#' (128) {
  72.     {    /* array: 2 elements */
  73.         /* [1] */
  74.         $"7FF0 0000 7FF0 0000 6030 0000 6010 0000"
  75.         $"6000 FE00 6080 FF80 6180 03C0 7F80 00E0"
  76.         $"7F80 00E0 6180 0060 6080 0060 6010 0060"
  77.         $"6010 0666 6030 03FC 7FF0 01F8 7FF0 00F0"
  78.         $"0000 0060 0000 0000 0000 0000 2000 0000"
  79.         $"2000 5005 2630 A002 2948 4001 2948 82A2"
  80.         $"2748 4141 2148 8082 2948 4101 2630 8082"
  81.         $"2000 4101 7000 AAAA 5FF8 5555 70",
  82.         /* [2] */
  83.         $"5550 0000 2AA0 0000 4010 0000 2000 0000"
  84.         $"4000 A800 2080 5500 4100 0280 2A80 0040"
  85.         $"5500 00A0 2080 0040 4000 0020 2000 0040"
  86.         $"4010 0222 2020 0154 5550 00A8 2AA0 0050"
  87.         $"0000 0020 0000 0000 0000 0000 0000 0000"
  88.         $"0000 A00A 0000 4005 0000 8002 0000 4541"
  89.         $"0000 8282 0000 4101 0000 8082 0000 4101"
  90.         $"0000 8082 0000 5555 0000 AAAA"
  91.     }
  92. };
  93.  
  94.